ControlKeysOBJ  METHODS

  constructor Init;
  destructor  Done;
  procedure   SetKeys(Next,Prev,Fin,Esc:word);